home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / scpro / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-07  |  4.3 KB  |  143 lines
  1. VERSION 5.00
  2. Object = "{47A3D398-EB59-11D2-918C-0020185489F0}#2.0#0"; "SCREENCAPPRO.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Capture Demo-Project"
  5.    ClientHeight    =   5415
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8400
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5415
  11.    ScaleWidth      =   8400
  12.    StartUpPosition =   3  'Windows-Standard
  13.    Begin ScreenCapP.ScreenCapPRO ScreenCapPRO1 
  14.       Left            =   240
  15.       Top             =   120
  16.       _ExtentX        =   847
  17.       _ExtentY        =   847
  18.    End
  19.    Begin VB.PictureBox Picture1 
  20.       Height          =   3735
  21.       Left            =   1800
  22.       ScaleHeight     =   3675
  23.       ScaleWidth      =   6435
  24.       TabIndex        =   10
  25.       Top             =   1560
  26.       Width           =   6495
  27.    End
  28.    Begin VB.TextBox Text4 
  29.       Height          =   285
  30.       Left            =   7800
  31.       TabIndex        =   5
  32.       Text            =   "200"
  33.       Top             =   480
  34.       Width           =   495
  35.    End
  36.    Begin VB.TextBox Text3 
  37.       Height          =   285
  38.       Left            =   5760
  39.       TabIndex        =   4
  40.       Text            =   "200"
  41.       Top             =   480
  42.       Width           =   495
  43.    End
  44.    Begin VB.TextBox Text2 
  45.       Height          =   285
  46.       Left            =   7800
  47.       TabIndex        =   3
  48.       Text            =   "100"
  49.       Top             =   120
  50.       Width           =   495
  51.    End
  52.    Begin VB.TextBox Text1 
  53.       Height          =   285
  54.       Left            =   5760
  55.       TabIndex        =   2
  56.       Text            =   "100"
  57.       Top             =   120
  58.       Width           =   495
  59.    End
  60.    Begin VB.CommandButton Command3 
  61.       Caption         =   "Capture &Part of screen"
  62.       Height          =   495
  63.       Left            =   4440
  64.       TabIndex        =   1
  65.       Top             =   960
  66.       Width           =   3855
  67.    End
  68.    Begin VB.CommandButton Command1 
  69.       Caption         =   "Cature &whole screen"
  70.       Height          =   495
  71.       Left            =   120
  72.       TabIndex        =   0
  73.       Top             =   960
  74.       Width           =   3855
  75.    End
  76.    Begin VB.Label Label5 
  77.       BorderStyle     =   1  'Fest Einfach
  78.       Caption         =   "ScreenCapturePRO Demo-Project              (c) 1999 by soda.  http://www.soda.de"
  79.       Height          =   855
  80.       Left            =   120
  81.       TabIndex        =   11
  82.       Top             =   1680
  83.       Width           =   1575
  84.    End
  85.    Begin VB.Line Line1 
  86.       X1              =   4200
  87.       X2              =   4200
  88.       Y1              =   0
  89.       Y2              =   1440
  90.    End
  91.    Begin VB.Label Label4 
  92.       Alignment       =   1  'Rechts
  93.       Caption         =   "Height"
  94.       Height          =   255
  95.       Left            =   6720
  96.       TabIndex        =   6
  97.       Top             =   480
  98.       Width           =   975
  99.    End
  100.    Begin VB.Label Label3 
  101.       Alignment       =   1  'Rechts
  102.       Caption         =   "Width"
  103.       Height          =   255
  104.       Left            =   4800
  105.       TabIndex        =   9
  106.       Top             =   480
  107.       Width           =   855
  108.    End
  109.    Begin VB.Label Label2 
  110.       Alignment       =   1  'Rechts
  111.       Caption         =   "Y-Start (Pixel)"
  112.       Height          =   255
  113.       Left            =   6480
  114.       TabIndex        =   8
  115.       Top             =   120
  116.       Width           =   1215
  117.    End
  118.    Begin VB.Label Label1 
  119.       Alignment       =   1  'Rechts
  120.       Caption         =   "X-Start (Pixel)"
  121.       Height          =   255
  122.       Left            =   4560
  123.       TabIndex        =   7
  124.       Top             =   120
  125.       Width           =   1095
  126.    End
  127. Attribute VB_Name = "Form1"
  128. Attribute VB_GlobalNameSpace = False
  129. Attribute VB_Creatable = False
  130. Attribute VB_PredeclaredId = True
  131. Attribute VB_Exposed = False
  132. Option Explicit
  133. Private Sub Command1_Click()
  134.     Picture1.Picture = ScreenCapPRO1.FullScreenshot
  135. End Sub
  136. Private Sub Command3_Click()
  137.     Picture1.Picture = ScreenCapPRO1.PartScreenshot(Text1.Text, Text2.Text, Text3.Text, Text4.Text)
  138. End Sub
  139. Private Sub Form_Resize()
  140.     Picture1.Width = Form1.Width - Picture1.Left - 300
  141.     Picture1.Height = Form1.Height - Picture1.Top - 580
  142. End Sub
  143.